home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / WASPRINT.PRG < prev    next >
Text File  |  1986-05-08  |  2KB  |  93 lines
  1. * WASPRINT VER 860410 THIS PROGRAM PRINTS A WAS file
  2. * COPYRIGHT  (C) Joe Kasser G3ZCZ 1986
  3. * called by logbook
  4. ERASE
  5. STORE ' ' TO choice
  6. @ 5,1 SAY ' '
  7. ACCEPT 'Whole thing, worked/QSL-d, or just QSL-d (T,W,Q)  ' TO choice
  8. @ 10,1 SAY ' '
  9.  
  10. STORE ' ' TO df
  11. STORE  0  TO cf
  12. ACCEPT 'Which call area (0-9, for all enter 10)' TO cf
  13. ?
  14. ?
  15. ACCEPT 'DO you want hard copy (Y/N) ?' TO df
  16. IF df = 'Y'
  17.    SET PRINT ON
  18. ENDIF
  19.  
  20. STORE  0 TO qsled
  21. STORE  0 TO worked
  22.  
  23. USE  &was
  24. ERASE
  25. EJECT
  26. ? 'WAS  PRINTOUT    for   ',callsign,
  27. IF choice = 'Q'
  28.    ?? ' QSL STATUS'
  29. ENDIF
  30. ?
  31. ? 'PX STATE         CALL       DATE     BND  MODE STATUS'
  32. ? '-----------------------------------------------------'
  33. DO WHILE .NOT.EOF
  34.    IF choice <> 'T' .AND. dstate = ' '
  35.       *
  36.    ELSE
  37.       IF dstate = '-' .AND. choice = 'Q'
  38.          *
  39.       ELSE
  40.          IF &cf = callarea
  41.             ? pc,state,dcall,ddate,dband,dmode
  42.             IF dstate = 'R'
  43.                IF choice = 'Q'
  44.                ELSE
  45.                   ?? dstate
  46.                ENDIF
  47.                STORE qsled + 1 TO qsled
  48.                STORE worked + 1 TO worked
  49.             ENDIF
  50.             IF dstate = '-'
  51.                STORE worked + 1 TO worked
  52.             ENDIF
  53.          ELSE
  54.             IF &cf >9
  55.                ? pc,state,dcall,ddate,dband,dmode
  56.                IF dstate = 'R'
  57.                   IF choice = 'Q'
  58.                   ELSE
  59.                      ?? dstate
  60.                   ENDIF
  61.                   STORE qsled + 1 TO qsled
  62.                   STORE worked + 1 TO worked
  63.                ENDIF
  64.                IF dstate = '-'
  65.                   STORE worked + 1 TO worked
  66.                ENDIF
  67.             ENDIF
  68.          ENDIF
  69.       ENDIF
  70.    ENDIF
  71.    SKIP
  72. ENDDO
  73. ?
  74. ?
  75. ? worked,' WORKED     ',qsled,'QSL-D'
  76. ?
  77. EJECT
  78. SET PRINT OFF
  79. WAIT
  80. RELEASE qsled,df,worked,choice,cf
  81. RETURN
  82.  you want hard copy (Y/N) ?' TO df
  83. IF df = 'Y'
  84.    SET PRINT ON
  85. ENDIF
  86.  
  87. STORE  0 TO qsled
  88. STORE  0 TO worked
  89.  
  90. USE  &was
  91. ERASE
  92. EJECT
  93. ? 'WAS  PRINTOUT